home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 33 / 033.d81 / bach menu (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  3KB  |  105 lines
  1. 0 ifzz=0thenzz=1:load"unpacker",8,1
  2. 1 ifzz=1thenzz=2:load"bach.shp",8,1
  3. 2 ifzz=2thenzz=3:load"text.3.o",8,1
  4. 3 :
  5. 4 ifzz=3thenpoke249,224:poke250,204:poke251,0:poke252,64:poke253,0:poke254,0
  6. 5 ifzz=3thensys51456:ag=3.3:poke828,1:poke829,39:poke830,1:poke831,23:zz=4
  7. 6 :
  8. 7 poke650,128:poke53280,.:poke53281,.:gosub20:printchr$(142)
  9. 8 onldgoto1145,50040
  10. 9 goto100
  11. 10 print"":fora=1tons:es=6-len(str$(ns(a))):es$=mid$(sp$,1,es)
  12. 12 if((ns=a)or(a=ns-1))anda=sethenprint"[159]"ns$(a):goto16
  13. 13 if(ns=a)or(ns-1=a)thenprint"[154]"ns$(a):goto16
  14. 14 ifa=sethenprint"[159]"ns$(a)tab(32)ns(a)"[157] ":goto16
  15. 15 print"[154]"ns$(a)tab(32)ns(a)"[157] [146]"
  16. 16 next:return
  17. 20 fort=.to24:poke54272+t,.:next:return
  18. 30 print""
  19. 32 fora=1to8:print"                                       ":next
  20. 34 print"":return
  21. 50 gosub30:print" [150]are you sure you want to quit?   (y/n)"
  22. 55 geta$:ifa$=""then55
  23. 60 ifa$="y"then60000
  24. 65 ifa$<>"n"then55
  25. 70 return
  26. 100 ns=10:dim ns$(ns),ns(ns):se=1:sp$="                 "
  27. 110 ns$(1)="invention 13"
  28. 112 ns$(2)="sinfonia 2"
  29. 114 ns$(3)="sinfonia 4"
  30. 116 ns$(4)="sinfonia 12"
  31. 118 ns$(5)="sinfonia 13"
  32. 120 ns$(6)="prelude 2"
  33. 122 ns$(7)="prelude 3"
  34. 124 ns$(8)="prelude 7"
  35. 125 ns$(9)=" auto-play "
  36. 126 ns$(10)=" exit program "
  37. 127 joy=56320
  38. 128 print"[147]";
  39. 130 print"           [158]bach to the future"
  40. 132 print"[129]          music by: ron coffen"
  41. 135 print"[153][154]name of song"tab(29)"# of times"
  42. 137 print"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  43. 140 gosub10
  44. 145 print"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  45. 150 print"[158]crsr up and crsr down (or joystick)"
  46. 160 print"moves the highlighted area up and down."
  47. 170 print"[129]+ and - keys add and subtract the"
  48. 180 print"number of times a song is to be played."
  49. 190 print"when you're finished selecting songs,"
  50. 200 print"press return (or button)."
  51. 1000 if(peek(203)=64)and(peek(197)=64)thenpoke198,.
  52. 1005 geta$:ifa$=""andpeek(joy)=127then1000
  53. 1010 ifa$=""orpeek(joy)=125thense=se+1:ifse=ns+1thense=1:goto1060
  54. 1020 ifa$="[145]"ora$=""orpeek(joy)=126thense=se-1:ifse=0thense=ns:goto1060
  55. 1030 ifa$="+"orpeek(joy)=119then:ns(se)=ns(se)+1
  56. 1040 ifa$="-"orpeek(joy)=123then:ns(se)=ns(se)-1:ifns(se)=-1thenns(se)=.
  57. 1050 ifa$=chr$(13)orpeek(joy)=111then1070
  58. 1060 gosub10:goto1000
  59. 1070 ifse=nsthengosub50:goto130
  60. 1072 ifse=ns-1then50000: rem auto-play
  61. 1080 hn=.:fora=1tons
  62. 1090 ifns(a)>hnthenhn=ns(a)
  63. 1100 next
  64. 1110 a=1:qq=0
  65. 1120 b=1
  66. 1130 ifns(b)=.then1200
  67. 1135 se=b:gosub10:gosub30
  68. 1140 ld=1:load "b64/"+ns$(b),8,1
  69. 1145 ns(b)=ns(b)-1:gosub10:ifqq=1then1150
  70. 1146 qq=1:sys51459
  71. 1147 sys49161,"[208]ress [return] to return to the menu",1,23,0
  72. 1148 sys49161,"any other key skips to the next song.",1,24,0
  73. 1150 sys49161,"  "+ns$(b)+"  ",17-len(ns$(b))/2,21,0
  74. 1155 poke54296,15:sys30120:poke198,.:ifb=7thenpoke54296,15
  75. 1160 geta$:ifpeek(789)<>234anda$=""then1160
  76. 1165 ifa$=chr$(13)thengosub20:goto1220
  77. 1170 ifa$<>""orpeek(789)=234thenpoke31044,4:gosub20:goto1200
  78. 1180 ifa$<>""orpeek(789)=250thenpoke8248,4:gosub20:goto1200
  79. 1190 poke198,1:poke631,65:goto1160
  80. 1200 b=b+1:ifb<nsthen1130
  81. 1210 a=a+1:ifa<hnthen1120
  82. 1220 gosub30:sys51459:goto130
  83. 2000 :
  84. 50000 rem auto-play
  85. 50010 x=1:qq=0
  86. 50020 se=x:gosub10:gosub30
  87. 50030 ld=2:load "b64/"+ns$(x),8,1
  88. 50040 gosub10:ifqq=1then50060
  89. 50042 sys51459
  90. 50050 sys49161,"[208]ress [return] to return to the menu",1,23,0
  91. 50052 sys49161,"any other key skips to the next song.",1,24,0
  92. 50060 sys49161,"  "+ns$(x)+"  ",17-len(ns$(x))/2,21,0:qq=1
  93. 50065 poke54296,15:sys30120:poke198,.
  94. 50070 geta$:ifpeek(789)<>234anda$=""then50070
  95. 50080 ifa$=chr$(13)then51020
  96. 50082 ifa$<>""orpeek(789)=234thenpoke31044,4:gosub20:goto51000
  97. 50084 ifa$<>""orpeek(789)=250thenpoke8248,4:gosub20:goto51000
  98. 50090 poke198,1:poke631,13:goto50070
  99. 50095 :
  100. 51000 x=x+1:ifx<=ns-2then50020
  101. 51020 gosub20:gosub30:sys51459:goto130
  102. 60000 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  103. 60010 print"[147]";:ifer<>63thenend
  104. 60020 load"hello connect",8
  105.